m0 <- cfa(m, data = d[d$Group == 0, ])
m1 <- cfa(m, data = d[d$Group == 1, ])
fitMeasures(m0, fi) cfi tli srmr rmsea bic aic
1.000 1.021 0.034 0.000 5214.258 5162.428
fitMeasures(m1, fi) cfi tli srmr rmsea bic aic
0.945 0.910 0.040 0.050 7899.949 7841.867